home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 86 / 086.d81 / pxword 86 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  60 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14);chr$(8);
  2. 20 poke55,0:poke56,96:clr
  3. 25 rem goto45
  4. 30 sys57812"toolbox 86",8,0:poke781,0:poke782,192:sys65493
  5. 40 sys57812"pcryptic 86",8,0:poke781,0:poke782,96:sys65493
  6. 45 print"[147]"
  7. 50 sys49152,7,4,15,7,34,160,12
  8. 52 sys49152,7,2,13,5,31,160,15
  9. 54 sys49152,7,4,13,32,32,101+128,12
  10. 60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  11. 62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
  12. 65 printtab(7)"1] [208]rint [208]uzzle
  13. 70 [153][163]7)"2] (NULL)rint (NULL)olution
  14. 75 printtab(7)"3] [211]olving [201]nstructions
  15. 79 [153][163]7)"4] valxit"
  16. 80 [153][163]5)"listtototototototototototototototototototototototototototo"
  17. 81 [158]49152,7,19,20,0,39,98,11
  18. 82 [158]49152,7,23,24,0,39,98[170]128,11
  19. 83 [158]49152,4,0:[151]198,0
  20. 85 [158]49152,3,0,0,1,14,20,160,"(NULL)ress 1-4 to select.
  21. 90 getk$:ifk$=""then85
  22. 95 k=val(k$):ifk<1or k>4then85
  23. 100 onkgosub1000,2000,3000,4000
  24. 105 goto85
  25. 110 :
  26. 1000 sys49152,10,15,4:sys49152,6,6,7,6,30,12
  27. 1002 sys49152,3,0,0,1,14,20,160,"[208]rinter ready?  [y/n]"
  28. 1005 getk$:ifk$=""then1002
  29. 1010 ifk$<>"y"thensys49152,5,0:return
  30. 1012 sys49152,10,4,3
  31. 1015 sys49152,7,20,23,0,39,160,14
  32. 1020 poke214,20:print:printtab(15)"[154][208]rinting..."
  33. 1025 sys24576:sys49152,5,0:return
  34. 1030 :
  35. 2000 sys49152,10,15,4:sys49152,6,7,8,6,30,12
  36. 2002 sys49152,3,0,0,1,14,20,160,"[208]rinter ready?  [y/n]"
  37. 2005 getk$:ifk$=""then2002
  38. 2010 ifk$<>"y"thensys49152,5,0:return
  39. 2012 sys49152,10,4,3
  40. 2015 sys49152,7,20,23,0,39,160,14
  41. 2020 poke214,20:print:printtab(15)"[154][208]rinting..."
  42. 2025 sys24576+3:sys49152,5,0:return
  43. 2030 :
  44. 3000 print"[155]":sys49152,13,8,asc("\"),"cryptic instr 86"
  45. 3005 sys49152,5,0:return
  46. 3010 :
  47. 4000 sys49152,10,15,4:sys49152,6,9,10,6,30,12
  48. 4002 sys49152,3,0,0,1,14,20,160,"[193]re you sure?  [y/n]"
  49. 4005 getk$:ifk$=""then4002
  50. 4010 ifk$<>"y"thensys49152,5,0:return
  51. 4012 poke55,0:poke56,160:clr
  52. 4050 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  53. 4055 ifer%<>63thenend
  54. 4060 poke646,peek(53281)
  55. 4062 print"[147][146]load"chr$(34)"hello connect"chr$(34)",8"
  56. 4065 print"run"
  57. 4075 poke631,13:poke632,13:poke633,13:poke198,3:end
  58. 4080 :
  59. 10000 open15,8,15,"s0:pxword 86":close15:save"0:pxword 86",8
  60.